﻿<!--#include file="const.inc"-->

<%
	dim id,rs,sql,classid
	id=Request.QueryString("id")
	if id="" then id=0
	if not isnumeric(id) then id=0
	id=clng(id)
select case v
case "0"
we0="<br/>"
hr="------------<br/>"
%>
<card title="查看友链" ><p align="left">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>查看友链</title>
</head>
<body>
<%

End Select
Response.Write(""&dao&"<b><a href=""/index.asp?sid="&sidd&""">首页</a>&gt;<a href=""index.asp?sid="&sidd&""">友链首页</a>&gt;<a href='list.asp?classid="&classid&"&amp;sid="&sidd&"'>列表</a></b>"&we0&""&hr&"")
			Set Rs = Server.CreateObject("Adodb.Recordset")

			Sql = "select [id],[urls],[name],[classid],[toCount],[inCount],[totime],[intime] from [qingtian_link_list] where id="&id&""
			Rs.Open Sql,conn,1,1
			if not (rs.bof and rs.eof)  then
				classid=rs("classid")
                                Response.Write we
				%>网站名称:<%=rs("name")%><br/><%
				%>网站地址:<%=rs("urls")%><br/><%
				%>链入总量:<%=rs("tocount")%><br/><%
				%>链出总量:<%=rs("incount")%><br/><%
				%>最新链入时间:<%=rs("totime")%><br/><%
				%>最新链出时间:<%=rs("intime")%><br/><%
				%>回链地址:http://<%=Request.ServerVariables("SERVER_NAME")%>/link/to.asp?id=<%=rs("id")%><br/><%
   				Response.Write("<a href='go.asp?id="&rs("id")&"&amp;sid="&sidd&"'>马上访问</a>")
                                Response.Write we0
			end if
			Rs.close

			set rs=nothing





%>
<%=hr%>
<%=sou%><a href='add.asp?sid=<%=sidd%>'>友链自助申请</a><%=we0%>
 
		<%

end Function
%>
